home *** CD-ROM | disk | FTP | other *** search
/ FishMarket 1.0 / FishMarket v1.0.iso / fishies / 001-025 / disk_013 / qbox.bas < prev    next >
BASIC Source File  |  1992-05-06  |  113b  |  6 lines
  1. 5     pattern
  2. 10    ask window x%, y%
  3. 15    pena rnd * 15
  4. 20    box(x%*rnd,y%*rnd;x%*rnd,y%*rnd),1
  5. 30    goto 10
  6.